home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / ISUBCL~1.CLS < prev    next >
Text File  |  1997-06-14  |  696b  |  27 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "ISubclass"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = False
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Option Explicit
  11.  
  12. Public Enum EMsgResponse
  13.     emrConsume      ' Process instead of original WindowProc
  14.     emrPostProcess  ' Process after original WindowProc
  15.     emrPreprocess   ' Process before original WindowProc
  16. End Enum
  17.  
  18. Public MsgResponse As EMsgResponse
  19.  
  20. Function WindowProc(ByVal hWnd As Long, _
  21.                     ByVal iMsg As Long, _
  22.                     ByVal wParam As Long, _
  23.                     ByVal lParam As Long) As Long
  24. End Function
  25. '
  26.  
  27.